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Editorial 


Welcome to Volume 2. Issue 1.1 

The Pet tfeers Club is now in its second year of operation and is still 
growing. Membership is now around 2000 with more subscriptions caning 

in all the time. 

Ihis issue contains the first in a series of articles entitled An 
Introduction to Machine Code", the most requested addition in the Pet 
Users Club survey. Also printed are two more reviews of Pet-related 

books. 


Many thanks to the contributors to this issue; articles and programming 
routines are now trickling in steadily. Since we now have a lot of new 
members, it should be explained that the PUC depends on your contributions. 
If you can write anything about your application, programs or specialist 
hardware, please send it in. 

Finally, this is the last issue for which I shall be Editor and 
Andrew Goltz will be taking over for the time being. 'Hie Pet Users Club 
will continue to be based at:- 


360 Euston Road 
London NWl 3BL. 


Richard Pawson 



Commodore News 


NEW - COMMODORE TRAINING DIVISION 

In keeping with our philosophy of continuous expansion and development 
5 SEE activities, Ccmodore is about to cadence aseries .of 
training courses on the use of Pet and its associated peripherals. 

The courses are residential and of two or three days duration. A 
number of venues have been fixed, at different places ^rossthe 
country, in order to make the courses available to as many Pet users 

as possible. 

All different types of user will be catered for, including ; business, 
scientific, educational and private use, though it is by no means 
necessary to own a Pet to benefit from them. The first two titles 
have been fixed as "Primary Basic" and "Disk Utilisation", with more 
to follow in 1980, such as "Mvanced Basic" and "Interfacing . 

There will be one Pet between each two students on the course, with 
small tutorial groups - a method of teaching ^eady prov^to be 
successful. Mike Gross-Niklaus (who has recently joined Commodore) 
will be supervising each course personally. Mike is well experienced 
at computer training, both with large systems and more recently with 
Pets in particular; he has also been contributing to this newsletter 
for seme time now. 

Overleaf is a list of dates and venues for the last quarter of this 
year. Please note that we can only accept official company orders. 
All other bookings must be accompanied with payment. 


********** 


ENDORSEMENT SCHEME 

This scheme, which was mentioned last issue, is now well established. 
You will probably have seen the "Commodore Approved" signs in your 
local dealer or magazine advertisements. Included with this newsletter 
you should have received a leaflet giving more details. Items already 
on the approved list include; interfaces, business suites, field 
maintenance contracts, books and firmware etc. 



Commodore Training Courses — October to December 1979 


Date Course Venue 


Price 

With accom. Without accom. 


Oct 22-24 

Primary Basic 

Skyway, London 

£225 

Oct 25-26 

Disk Utilisation 

Skyway, London 

£125 

Oct 29-31 

Primary Basic 

N. Stafford, Stoke 

£225 

Nov 1-2 

Disk Utilisation 

N. Stafford, Stoke 

£125 

Nov 5-7 

Primary Basic 

Excelsior, Glasgow 

£225 

Nov 8-9 

Disk Utilisation 

Excelsior, Glasgow 

£125 

Nov 12-14 

Primary Basic 

Skyway, London 

£225 

Nov 15-16 

Disk Utilisation 

Skyway, London 

£125 

Nov 19-21 

Primary Basic 

N. Stafford, Stoke 

£225 

Nov 22-23 

Disk Utilisation 

N. Stafford, Stoke 

£125 

Dec 3-5 

Primary Basic 

Excelsior, Glasgow 

£225 

Dec 6-7 

Disk Utilisation 

Excelsior, Glasgow 

£125 

Dec 18-21 

Primary Basic 

Post House, Coventry 

£225 


£175 

£100 

£175 

£100 

£175 

£100 

£175 

£100 

£175 

£100 

£175 

£100 

£175 


All courses start at 10.00 a.m. on Monday or Thursday. 

Primary courses end at 3.30 p.m. on Wednesday. 

Disk courses end at 12.30 p.m. on Friday. Prices are inclusive of VAT. 

These are intensive small group courses involving full evening sessions and you are strongly advised 
to book with accommodation. 


All accomodation is in top class Trust House Forte hotels where the actual courses take place. 
Single rooms with private bath and full board are standard. Bookings will be accepted on a tirst 

come basis. 


Further courses on other topics will be run in the future. Full details of these and other PET 
developments will be published in the PET Users Club Newsletter, available for an annual 
subscription of £10.00 from the PET Users Centre, 360 Euston Road, London NW1 3BL. 


BOOKING FORM 

Please underline course required: Basic Basic Disk Programming 

Date required:.(1st choice).. (2nd choice).(3rd choice) 

Name(s)....... 


Address.. • 1 enclose my cheque no: 


for£.(or official 

Company Order (no:.) 


Signature 


Date 


Please remit full payment or official company order — no cancellations can be considered within two weeks of the course 


starting date. 


Please return to: 
Commodore Systems PET Users Centre, 
360 Euston Road, London NW1 3BL. 


















Software Notes 


future tape releases 

Future additions to Goranodore's cassette library will include programs 
on stock market trends, fast fourier transforms, logic circuit models, 
education in chemistry, analysis of cassette tapes and visual reports 
can any errors present, fantasy games and more besides. For full details 
of these new releases see the next edition of this newsletter and also 
our new master library catalogue (caning out shortly). 


Our disk unit is now becoming widely accepted as a powerful addition to 
the Pet system. Because of the nature of its facilities and commands 
the disk requires careful use if it is to function correctly. Several 
users have experienced difficulties with the error light appearing on 
initialisation. This problem has been traced to incorrect centralisation 
of the media - the correct procedure is detailed below. 

We are taking a number of steps to increase the documentation and 
education available on the disk — a new manual is being supplied with 
all subsequent shipments and and printed elsewhere in this newsletter 
is a copy of our disk utility program. 


DISK INITIALIZATION 

Ihe disk should be carefully centred in its envelope before insertion 
and most important of all, the door of the drive should be left open 
for 1 - 2 seconds as initialization proceeds. The effect of leaving 
the door open during the early stages of initialization is to allow the 
disk to settle into its optimum physical position before reads'or writes 
are attempted. 

In a few weeks we will be announcing the first release of software for 
the disk. Titles will include an Assembler, an Editor, LISP and the 
first of our Business Packages. These will include a Business Filing 
System and a Stock Recording with Invoicing suite and a Word Processor. 

Ledger programs are complete and now being exhaustively tested. 

As usual, may I ask you not to contact us about these products until 
an official announcement is made. Full descriptions of these products 
in the next issue and, of course, the results of the Star Trek 
competition. 

The rest of this column is devoted to description of a fix for garbage 
collect problems. 




w-fhe... Petsofi Catalogue 


Simulations and Games 


^ BLITZ £5 A video game in which you command an anti-aircraft 
battery defending London. A direct hit on a falling bomb scores you 
20 points, on a bomber 30 points. However, you lose 100 for every 
building destroyed. 

^BREAKTHROUGH £5 Classic video game with a moving gun 
shooting bricks out of a four layer wall; when you have made a hole 
through all four layers, you shoot one more bullet through the hole 
to win. Three speeds of play, each with a limit on the number of 
shots. N.B. Fast speed is very difficult but achievable. Program can 
be modified to vary speed and wall thickness. 

^BULLS & BEARS £9 Jeff Boetticher, Head of the American Byte 
Shop chain, reckons this is the best micro computer game 
available anywhere. Each player starts with $50,000 to invest on 
the stock market. By manipulating shares in the companies you 
control and keeping a tight rein on the production side, it is possible 
to become a millionaire. Revised and improved U.K. version. 

^ HEX AP AWN & FRAMED ART £5 HEXAPAWN is played with two 
sets of three pawns on a 3x3 board, the object being to reach the 
other side or to prevent the computer from moving. Be warned 
PET learns from its mistakes and improves its play each game. 
FRAMED ART generates a constantly changing screen pattern to 
relax you after Hexapawn. 

^IfuNT £10 A new concept in fantasy simulations which has 
achieved wide acclaim. "The context is that of a search for a 
defined object, typically Atlantis or the Holy Grail. The objective, 
the names and natures of the searchers, their antagonists and the 
properties of the space in which the hunt is conducted are defined 
— by you!" — Practical Computing. 

^^MAXITI £5 An ingenious board game played on 8x8 board. You 
can only move horizontally whilst PET is allowed vertical moves 
only. Warning; PET'S strategy is very cunning. 




THREE OF A KIND £4 The computer selects nine words. You and 
PET take turns to pick one out, the object being to get three of the 
same letters into your word selections. A real brain boilerl 


A/£VV 

SUB SEARCH £4 A new submarine-hunting game with dynamic 
graphics. Save the convoys by depth charging enemy U-boat 

NEfte MONEY GAME £5 Your chance to invest on the stock market 
and the turf. Fortunately, rich uncles die regularly leaving you 
shares. You may get away with not declaring your gains — or you 
might be arrestedl 

ivew 

MOTOR RACING £6 Exciting race track simulation. Controls 
include accelerator, brake and steering. Good graphics. 

PARTY PACK £6 Children love this package which includes 
GUESS THE NAME, where your clues include the first letter and 
sex of the name, and SNAP with variable speeds. 
CONSEQUENCES displays a random series of sentences 
describing who meets who, what they do, and the results. The 
sentences can be personalised to intriguing effect. 

^PET POETRY £5 We think the poetry generated from PETs data 
files — which you can easily amend — is as good as most of the 
rubbish that gets published nowadays. 

^^s5(rAMBLE The computer generates anagrams of well known 
words for you to unravel. Not nearly as easy as it sounds. 

Crossword puzzle addicts will adore this. 

I^SOLITAIRE Now you can play this famous game on the PET. If 
you make a mistake, cheat a little and have the computer backstop 
a few moves. 

J^^SPACE SHUTTLE £5 Can you manoeuvre your NASA shuttle to 
dock with an orbiting space station before you run out of fuel? 

Highly rated by all computer space afficionados. 

^STEEPLECHASE £5 All the thrills of the National Hunt. Meet 
'Honest Joe' the punter's friend, and lose your shirt on the horses. 

Very good graphics. Start with £1000 and take your chance. 

N^TUES £5 A challenging graphic game which requires you to move 
one large square amongst a number of smaller squares from one 
side of the board to the other and back. It takes PET 138 moves — 
can you do better? 


Educational Mathematical 
and Scientific 


N£«L 






NEft 


SfOLOGY MULTIPLE CHOICE £6 C.A.I. program tests and 
stimulates knowledge of: Bone Structure of Birds, Calories, Bone 
Structure of Humans, Plant Structure, Protein in Urine, Eggs and 
Food, Glucose in Blood, Calorific value of Fats in Blood, 
Temperatures and Enzymes, Parts of the Plant, Human Body 
Temperature, Fungus, etc. 

w 

CALCULATOR £5 Comprehensive simulation converts numeric 
keypad into a four function calculator with memory and automatic 
constant. Features include fixed or floating decimal point, with 
round off or down. A calculator display is shown on screen and all 
steps are listed. Alternatively, a printer may be used to turn the PET 
into a powerful printing calculator. 

Chemistry TUTOR £7 Comprehensive tutorial dealing with 
atomic numbers, element symbols etc. Choice of difficult or easy 
questions. 

76 COMMON BASIC PROGRAMS £16 A collection of 76 useful 
programs on one cassette from Adam Osborne's bestselling book. 
These include personal finance, maths, statistics and general 
interest topics. Excellent value for stand alone or incorporated use. 

W 

COURSE HANDLER £96 A must for School Timetablers. The 
program handles all the information relevant to creating a4th/5th 
or 6th year Option Scheme and is particularly useful where an 
"Open Choice" of subjects is offered to pupils. The program 
maintains, via a simple dialogue with the timetabler, a file of pupils 
and their requests and allocations and a file containing details of 
the Option Scheme. Facilities are provided for viewing the scheme, 
the classes, the pupils and the class clash matrix. The COURSE 
HANDLER will fit the pupils against the scheme by 'Best Manual 
Package' method but these assignments may be overridden by the 
timetabler if they are unsuitable. Further, pupils may be selected 
for editing by class or name for final adjustments to their choices. 
Described by users as "A great asset" and "A very useful tool". 
Suitable for a PET with 32K bytes and two cassette recorders. Full 
65 page manual supplied. 


^FREQUENCY RESPONSE £6 You enter the Constant, Finite 
Delay in L, Sec, number of zeros of transmission function. 
Frequency response is radians/second. Range option: octaves, 
halfoctaves or equal octaves. The program calculates 
cycles/second, radians/second, amplitude ratio in decibels and 
Phase in degrees, from the information entered. Print out function 
included. 


new 


MATHADAPT £6 Written by Kilobaud' PET columnist, Greg Yob, 
to develop basic maths skills, the program sets problems for 
Addition, Subtraction, Multiplication and Division, and marks a 
report card. However, this program gives you control on both 
problem limits and their difficulty. 


A/£W 


ME* 


PHOTOGRAPHY TUTOR £12 A comprehensive course 
developed by a professional photographer making full use of PETs 
dynamic graphics capabilities to demonstrate and explain the 
mysteries of exposure, focus, aperture, shutter speeds, 
interchangeable lenses, depth of field, etc. The theory and practice 
of photography are explored interactively, and progress tested. 
Multiprogram pack. Available on Disk £15. 


PHYSICS MULTIPLE CHOICE £7 Clearly written program which 
tests and scores knowledge of electricity. Amps, Ohms, Volts, 
Galvanometers, Lenses, refraction of light, colours, magnetism, 
velocity, Newtons, Pulleys, measurement of humidity, convection, 
pendula, cathode rays, etc. 


new 


’TRANACTIONAL ANALYSIS £7 An introduction to T.A.—a 
system for understanding human behaviour. Chapters include: 
You As A Person, Stroking, Transactions. Are You Listening?, The 
Balancing Game. This interactive learning cassette will help you 
gain a better understanding of why you get along with some people 
and not with others, and may give you a better understanding of 
yourself! Documentation included. 


new 


NEW 


CRYPTO PACK £8 This is the complete kit for all those interested 
in cryptography, codes, ciphers and cryptanalysis. Developed by Dr 
Michael Richter, the package includes Cryptosub, General Cipher, 
Cryptanalyser and New Cipher programs. 


FRENCH/ENGLISH TUTOR £6 The computer tests your 
language skills from English to French and French to English. 
Answers included, of course. 



Continued 


crPetsoft 


LTD. 


Radclyffe House, 66-68 Hagley Road, 

Frlnhastnn Birminaham B16 8PF. Tel: 021-455 8585 Telex 339396 



usiness Programs 

NBouSEFINDER £25 Professional package developed specially 
for Estate Agents. Details of properties on the register are encoded 
under Aea (up to 34 are handled), type of house, situation, No. of 
reception rooms, bedrooms, garden size etc. Modes include Enter 
or Display Details, Find Property, Save Files, Load Files, etc. 


NE* 




JOB EVALUATION £26 Conducts the evaluation necessary to 
establish pay structures and grades. Program computes correct 
weightings for factors — education, training necessary, 
responsibility over other men and equipment, working conditions 
etc. — which comprise job value. A Job Evaluation Formula is 
created for use as a guide to the relative value of a job based on the 
thinking of the company or department concerned. Answers to 
paired comparison tests with other jobs are analysed. The names 
of the factors for which weightings are given, are then requested 
and the comparison procedure activated. Multiple Regression 
Analysis is invoked to find the set of weightings best fitted, and 
display them in the form of a Job Evaluation Equation. Full 
documentation included. 


PAYROLL — 400 (Disk) £50 A totally new and complete disk 
based payroll system designed and written to meet the needs of 
small businesses. Up to400 employees per disk are catered for. A 
32K PET 2001 -32 equipped with Commodore dual floppy, an 
Annadex DP800 or device 4 printer is required. 

Ease of use, security and versatility are key points in this system 
Facilities provided include Holiday Pay, Sick Pay, Bonus payments 
and two rates of overtime, as well as allowing a "standard week 
to be specified for each employee. Weekly and monthly summaries 
are provided and amendments necessary because of a Budget (e g. 
increasing employee's tax codes) are made very easy. Each week a 
wage slip is printed for each employee followed by an analysis of 
the coins/notes required for these employees paid in cash 
(payments by cheque and credit transfer are also allowed for). Tax 
and N.l. are computed automatically from a knowledge of the tax 
code and N.l. rate applicable to that employee. All tax codes and N.l. 
tables A, B and C are catered for. As well as being simple and time 
saving to use, the system is designed to be "operator proof" and 
the security prevents unauthorised amendment of details on file. 
Versions of this system for other disk drives and printers will be 
available shortly. Update service available. 


NE& 


ROUTE PLANNERS: France. Spain, Italy, Western Europe Trunk 
Routes — £5 each. 

Enter your present location and destination and PET searches its 
database for the most efficient route. The names of towns, 
distances etc. are displayed. 


ne*' 


STOCK CONTROL ON DISK £26 Facilities allow full or 
operational stock print out, total costing of items in stock and re¬ 
order level warning. Data is stored under Reference, Description, 
Supplier, VAT Rates, On order Quantity, Quantity in Stock, Unit of 
Quantity Designated, Minimum level. Stock allocated. Sale Price 
and Purchase Price. Approx 400 items per diskette. 


Programming Aids and Tutorials 

Hit .- ... .. .. _ HQL MATTPn i ifiTFR flfi intpilmihlfi listinas at last! Produc 


AUTO LINE NUMBERER £5 Write your programs without 
bothering about line numbers. Automatically supplies the next line 
number when you hit Return. Increment and starting point 
specifiable by user. May also be used for deleting blocks of lines: 

N^UTTERFIELD'S ENCYCLOPAEDIA £12 a treasure trove of 
utilities and games from the PET's leading exponent Jim 
Butterfield. Includes Copycat, to prevent tape copying. Tape Test, 
Morse Practice, Triangle, Calculator, Metric Conversion, Data 
Finder, Trendline, Mileage, Factors, Keyboard Record, Battleships, 
and many more. Outstanding value. 


FORMATTED LISTER £15. intelligible listings at last! Produces 
neat listings of Basic programs, which differ from the normal one 
in that the line numbers are right aligned, the listing is divided into 
numbered titled pages, and Basic lines too long to fit in the print 
width have their continuations indented clear of the line numbers. 
PET cursor control characters are printed as bracketed 
abbreviations e.g. (CLR) for "Clear Screen". For printers without 
lower case, shifted PET symbols are printed as bracketed upper 
case symbols. A blank line is printed as each line started with a 
REM statement. This allows separation of program line blocks. 


ne£ 


me* 


6502 FORTH £30 FORTH is a unique threaded language that is 
ideally suited for systems and applications programming on a PET. 
The user may have the interactive FORTH Compiler/Interpreter 
system running stand-alone in 8K to 12K bytes of RAM. The 
system also offers a built-in incremental assembler and text editor. 
Since the FORTH language is vocabulary based, the user may tailor 
the system to resemble the needs and structure of any specific 
application. Programming in FORTH consists of defining new 
words, which draw upon the existing vocabulary, and which in 
turn may be used to define even more complex application. 
Reverse Polish Notation and LIFO stacks are used in the FORTH 
system to process arithmetic expressions. Programs written in 
FORTH are compact and very fast. System features and facilities 
include Standard Vocabulary with 200 words. Incremental 
Assembler, Structured Programming Constructs, Text Editor, 
Block I/O Buffers. Cassette Based System, User Defined Stacks, 
Variable Length Stacks. User Defined Dictionary. Logical 
Dictionary Limit. Error Detection and Buffered Input. 

^SYSTEM EXTENSION £1 2 Jlows you to store up to 10 separate 
Basic programs in RAM at once for instant individual retrieval. 
Includes Block Delete program linker and Fast Line Renumberer. 
Crash prevention feature with special error messages. Suitable for 
old ROM PETs with expansion memory only. 

HOW TO ORDER- 


MULTI KEY GET £4 How to make the PET recognize more than 
one key when several are pressed at once — essential for games. A 
demo is included in addition to the routine itself. 


nevv 


PILOT £10 The latest version of an additional language for the 
PET, especially suited to writing conversion programs and for 
Computer Aided Instruction. 15 easy-to-learn one-syllable 
commands handle the display of string, input commands, checking 
data against inputs, jumps to other program segments or sub¬ 
routines, returns from subroutines, special counters etc. The 
PILOT interpreter also accepts fundamental Basic commands 
including LOAD, RUN, NEW, STOP, SAVE Etc. 


new 


SCREEN STORE £4 Useful routine for storing the exact contents 
of the screen RAM. Can also be used with dynamic graphics. 


NE& 


SELF MONITOR £7 An essential debugging aid which allows you 
to see your own program execute line by line. Variables below line 
999 are also checked. The routine can be automatically deleted 
from your program. 


we to I VAT free) 

SSS55?Ssrs 

11 



w£Vtf 

SOFTWARE MATHS ENHANCER £9 Software method of 
enhancing the maths capabilities of the PET, includes: RPN 
Calculator, Hex Arithmetic. Fourier Explicit, Non Unif, 78 Digit 
Multi, 255 Digit Multi, Small Primes and Large Primes. 

— From your local PET Dealer,- 

or direct from us: 

We accept Access , Mastercharge, Barclaycard, Visa, Eurocard 
orders by telephone on 021 -455 8585. Official orders are accepted 
from schools, colleges, government departments only. 

All other orders should be accompanied by a cheque. 

PLEASE ADD V.A.T. + 50p Post and Packing to your Order 


Non-UK Sales We will, and do ship to any part of the world by airmail 
post. To cover the cost please add the equivalent of 25 pence (50 US 
cents) per title to destinations within Europe, and 50 pence (1 US $ )per 
title elsewhere. All orders should be prepaid. We accept 
Mastercharge, Eurocard, Bank Americard/Visa credit cards, cheques 
drawn on UK banks, and International Money Orders. Giro or Direct 
credit transfer may be made to our account. 


crPetsoft 


LTD. 


Radclyffe House, 66-68 Hagley Road, 

Dirminnhom DIR QPP Tol- rm./lRR RRftR Telex 339396 




STRING FIX 


There is a PET peculiarity (which is shared by all Microsoft Basic 
Machines), which can cause many problems - sane of whichmight be thought 
to be due to the disk but are in fact due to the way strings are organised. 

Ibis is the problem of garbage collection which can cause a machine to 
"hang-up" or become unresponsive to the operator for long periods of 
time e.g. more than 130 seconds for the program below without the String 
Fix (which is in line 55). 

Fran the tabulated results, it would seem strings are most quickly handled 
in this case with the top of memory set at N=23 (5.75K). 

So, if long delays are encountered in programs handling strings, the remedy 
is to lower the top of BASIC to create a shorter stack. 

Previously assigned strings may still be referenced, but all new 
assignments will now only be garbage collected to the new top of BASIC. 


This can produce spectacular improvements in the performance of programs 
as the table above the listing suggests. 


SECONDS 


TOP OF BASIC (HI BYTE) 


12.05 

7.61 

6.08 

5.31 

4.95 

4.73 

4.46 

4.40 

4.13 

4.25 

4.63 

7.28 


15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 


STRING FIX DEMO 

5 PQKE53, 128:REM SETS TOP OF MEMORY TO 32K 
10 X=720 

20 OPEN3,4:OPEN4,4,1:OPENS,4,2:PRINT#5,"99.99 99 

30 DIMA (X) 

40 FORI=ITOX 

50 A$ (I)=STR$ (I) + "XXXXXXXXXXXXXXXXXXXXXXXXXXXX" 

60 NEXT 

70 PRINTtf3, "SECONDS TOP OF BASIC (HI BYTE)" 

80 P0EN=15T026 
90 PQKE3,N 
100 T=TI 
110 FORJ=1T0800 

120 Z$= "ZZZZZZZZZZZZZZZZZZZ"+"" 

130 NEXT 

140 PRINT (100* (TI-T)/60)/100,N 
150 PRINT #4, (TI-T)/60,N 
160 NEXT 

170 CMD4 * PRINT: PRINT: PRUfF: PRINT: PRINT: PRINT: PRIUT" STRING FIX DEMO" 

:PRINT: 


PRINT: PRINT: LIST 
READY. 



PAYROLL 


We are producing a Payroll 2 in response 
recommendations that have recently ocroe 


to new regulations and 
from the Inland Revenue. 


This program will be sufforted by a different author to the last 
one and we will be announcing details soon. 


All orders for Payroll received after September 1st, will be held 
until they can be supplied with Payroll 2. 


Hardware 


■ME BASIC PROGRAMMERS TOOLKIT - A REVIEW 

The Basic Programmers toolkit is a piece of firmware, ^eloped 
specifically for the PET, in the States, and imported into th^country 
b^PETSOFT Essentially the toolkit adds 10 contends to the PET 
operatingsystenTbymeans of a PRCM containing a number of machine-<x>de 
subroutines residing in the expansion ROM area of the memory map. 

Ftor the new 16 & 32K Pets, this PROM will plug straight into one of the 
SaSio^ ^M sockets on the main logic board. For 8K Pets, the toolkit 
is mounted on a small driver board which plugs into Pet s expansion 
memory port and 2nd cassette port. After connecting and switching on, 
the toolkit is activated with one SYS command. 

The features added by the toolkit are mainly used in the developnent and 
de-bugging of programs - hence the name. Although one or two of th 
routines are already available on cassette from other sources, the 
advantage of the toolkit is that they are constantly available and do 

not use up your working RAM. 

The toolkit comes with extensive documentation, including a list of 
'GOTCHAS' (situations in which mis-application of the command results 

in errors). 

The following is a list of the commands, with a brief explanation and 
seme personal review caunents. Che nice feature is that all these 
commands can be abbreviated to two letters, as per Pets Basic carmands. 



MHO 


-mis cotmand automatically prints the line niters ^ ^ 

in a program. The start line (defaults to 100 if not specifled) am 
increment (defaults to 10) can be specified. After a line of BASIC is 
keyed in the next line number appears automatically. 

Will save timer but not a lot. 


DPT.TTTE 

A real tiine saver - DHOT! 300 - 500 will renews ' 5 °° as 
inclusive me caimand string can be shortened to DELETE 200 etc. as 
in LIST. DELETE is especially useful at the early stages in a program 
when different routines are being tried. 


FIND 


Absolutely invaluable if you wish to change a 

construction. FIND will search out and print all lmes containing a 
specified string of characters and/or words. For example, FIND GOSUB 100 
will print all the lines which contain GOSUB 1000, and FIND A1 will list 
all lines in which the variable A1 is used. 


RENUMBER 

mis will renumber your program, starting from a j! 3 
(defaults to 100) in equal specified increments (defaults to 10). 

GOTO's and GOSUB's are changed accordingly. Although a renumber facil ty 
is useful for ’opening out' a crowded program, it is not Possible to 
renumber a small part of a program. This means that if you start your 
subroutines at multiples of 1000 (1000, 2000, etc.) for an easi y 
S£t^5e program structure, RENUMBER will lose this - very annoying. 


APPEND 

Adds a previously saved program onto the end of a program in ^mo^- 
Although APPEND will not interleave line numbers as will the Butterworth 
method, this is not a great disadvantage since APPEND is mostly used 
for building up programs from a library of subroutines. It does have 
the advantage over the Butterworth method in that is appends normal 
saved programs and not pseudo data files. 


DUMP 

Prints out the names and values of all (non-dimensioned) variables used 
in a program, when it has stopped. Variables are displayed m their 
order of creation and - can be changed with screen editing. A userul 
feature for finding out why a program is not working as expected. 



HELP 


When a program halts due to anerror ^LPdlspla^ the »^“ line ' 
with the offending character highlighted in f advanced 

S35 .% Z3&Z?3SiS5Z SiS - 


TRACE, STEP, OFF 

stt-zzissr* K=.“<xag «“£sri 

S’SS SiSS.’m “ 

are ^tVisT*ointing in that theyd^t 
SSffi’S.’SSA’S S - iS display U severa? l line^numbers at 
once. 

ss?^: w; 16 

the version for 8K Pets - £75 + VAT. 


DIGITAL TO ANALOGUE CONVERSICN 

D Muir of Napier College, Mercheston, Edinburgh, who sent in a design 

ss^'isssrss s^P^rto^^T^: 

is shown. 

It should be noted that bit 1 on the D to A convertor must be connected 
to the Mast Significant Bit on the User Port. 


200 POKE59471,128 
250 P0RJ=1 TO5000 :NEXTJ 
300 Kl=2 *h/8:K2=K1/8 
400 A=A/5000 
500 DIMA(256) ,A%(256) 

700 PORI=0TO255:X=(1-128.001)/I.28 
800 A(I) =10*00 S (K1*X)*SIN(K2*X)A 
900 A%(I)=128*A(I) 

1000 PRINTI,X,A% (I) 

1050 A%(I)=A%(I)+127 
1100 PQKE59471,A%(I) 

1150 F0RJ=1TO50:NEXTJ 
2000 NEXTI 

2500 FORJ =1TO5000: NEXTJ 
3000 POKE59471,0 












































Small 

Systems 

Engineering 

Limited 


INTERFACE PRODUCTS 




IEEE-488/RS232C SERIAL INTERFACES 

* Full IEEE address decoding BAUD^rates* 

* RS232C or 20mA Loop output * Crystal contronea 

* Custom chips allow any character code sets 

* RS232C DIR (Printer Busy) input . 

Serial Interface B, input and output... 

Serial Interface C, output only . 


186.00 
120.00 


(C& 


IEEE-488/CENTRONICS TYPE PARALLEL INTERFACES 

*°Full S Sdress decoding for Pet disk canpatibility * 

I Avail^ble'fo^C^lI^NICS^ 3 ^^® r °PR40 S and BD80 printers* 
Parallel Interface AD (addressable) ...' 


106.00 


NON-ADDRESSABLE: - .45.00 

Low cost compatible with most parallel printers. 

MICROPROCESSOR BASED GENERAL PURPOSE INTERFACE (G.P.I.) 

?uszsnz ss=as ’ 

capability * Special output formatting facilities PP P#0 .A. 

for modem operation * 


TV/VIDEO MONITOR INTERFACE 

Video ana UHF output/plugs into aerial socket 
of domestic TV set . 


35.00 




COMPUTASTORE SOFTWARE 

PETE Intelligent Terminal Software Package.. 100 * 00 

PET MEMORY BOARDS 

internally mounting - available with Pron sockets: 24 k......... j28.00 

** NEW ** REAL-TIME AUDIO SPECTURM ANALYSER 

* Internally mounting * 32 Channels * IK EOM routines on 

board for analysis and graphical display USR functions 4sn QQ 

linkage to Pet operating system.. 

Prices EX VAT. Post & Package (Securicor express delivery). 5.00 

All goods supplied under 90 days warranty 

62 New Cavendish Street • London W1M 7LD Telephone: 01 637 0777 Telex: 8813085 (Abacus) 


450.00 















Beginning Machine Code - An Introduction 


the mast request In our MC surv^, twoj 

Mssrissa s— °- swr«=i 

the 6502". 


********* 


WHAT IS MACHINE CODE? (abrev. M/C code) 

ISiSsSr 

the Pet is based on a 6502 Microprocessor. 

Anv software to be run on a microprocessor must first be translated 

^S££2r&£$S£ar- 

language since it consists of numbers or binary digits only). 

There are two methods of translating a high-level language ^code- 

ISrticularly in loops), but needs less space, and is particul y 
sSSle for interactive systems such as the one on your Pet. 


WHAT ARE TOE ADVANTAGES OF WRITING DIRECTLY IN MACHINE CODE? 

If you can write a program (or part ■of aptogr™) ^is 

then it will execute up to a hundred! times faster. aw. 

that M/C code is rather “ in bj^c and 'drop down' 

cannon practice to write most of a large prugiaiii *»» 
into M/C code where a routine can easily be written th . 


memory. 



ssstur—“."-'■SS" '■ssh-""’ 

Witten library of MA= code arithmetic subroutines. 


HOW DO I RUN ft MACHINE 00 ™*. RttHIHE CM TOE PEP? 

There are two methods of accessing a M/C cate 

“ aconstant. The operation of these two cormands is detailed in the 
Pet manual. 


WHAT does machine code look like? 

True M/C code, as stored in the memory, consists of binary digits. For 

code is often written in base 16 known as Hexadecimal ot «= 

M/C code might be written thus:- 


AD 03 IF 
18 

69 04 
8D 03 IF 

00 


This kind of program is very difficult to read so the various instructions 
are given mnemonic codes. For example, the ins^urtionropute^he 
contents of the accumulator into a particular byte of memory. This is 
^iverTthe mnemonic “STA" (store acomulator). The aboee program in this 
form might be written:- 


MNEMCMICS 


explanation 


LDA VALUE 
CLC 

ADC -#04 
STA VALUE 
BRK 


Load "value" into accumulator 
Clear contents of carry flag 
Add with carry 4 to accumulator 
Store accumulator in "value" 
Break (halt) 


This is called an Assembly Language program. Ceneraily speakmg, arout ine 
S developed in Assembly Language. It is then converted to pure M/C code 
by means an "Assembler". This is not as explicated as utttpeebng a 
high-level language because each mnemonic can be converted by a look up 
table. This sort of conversion is known as "one to one . 


A Disassembler converts M/C code into mnemonic form to help de-bug or alter 
an existing routine. 



WHAT DO THE STATEMENTS IN A MACHINE CODE ROUTINE ACTUALLY DO? 


The microprocessor contains certain 8-bit registers such as the 
Accumulator, X register and status register. It understands 56 types 
of instruction (e.g. ADC) although most of these have several variations 
or addressing modes. Most of these instructions perform a simple 
operation on one or more of these registers. For example, CUZ sets one 
of the bits in the status register to zero. Cn a microprocessor the 
most advanced type of instruction is the addition or subtraction of two 
bytes. All other functions must be built up from this level. 


Programming 

We received a letter from Jim Butterfield, in Toronto, detailing the 
finalised version of the merge routine which we printed in a previous 
issue. The text follows:- 

Merging PET programs: a final report Jim Butterfield, Toronto 

Tb wrap up the various activities surrounding merging or UNLIST, and 
bring than up to date with information on new ROM: 

X. ib change a program into a data file on cassette tape: 

Mount blank tape on cassette 1. Type: 

OPEN 1,1,1 : CMD 1 : LIST 

Cassette tape will write. When writing is complete, the flashing 
cursor will return, but PET will not print READY - the word READY 
is in fact written on tape. Now close the CMD and tape file with: 

PRINT #1 : CLOSE 1 

This "merge" tape may now be saved for any future occasion. 

Variations: 

- - the file may be named, e.g. OPEN 1,1,1, "TEST MERGE : ... etc. 

It's good practice to name files if you plan to keep them. 

— — if desired you may copy only part of the program to tape, 

e.g. ... CMD 1 : LIST 500-700 ... This is a handy v/ay to 
extract subroutines from a larger program. 



II. Ib merge a 


data file (in the above format) into program space: 

The procedure is slightly different on original ROM as compared 
to the new ROM, which I'll call upgrade ROM. 

The program with which you wish to merge must first be loaded into 
The following procedure may be repeated many tunes, so 
that you may merge several program blocks together. 

MDunt "merge” tape on cassette 1. Type: 

Original ROM: POKE 3 f 1 : OPEN 1 

Upgrade ROM: POKE 14 , 1: OPEN 1 

Tape will now be read. Eventually, the computer will report POUND 
and the cursor will return. 

Now: clear the screen and press exactly three cursor downs. Type: 

original ROM: POKE 611,1 : POKE 525,1 : PO^ 527,13 : W 
Upgrade ROM: POKE 175,1 : POKE 158,1 : POKE 623,13 . • h 

("h" is the cursor home key - it will print as a reverse S). 

As soon as you press RETURN at the end of this line, the word READY 
will appear above the line, and tape will move. When the^nerge is 
toTSSputer will print either ?OJT OF DATA EE*® « 
7SYNTAX ERROR below the line. This is normal and does not sxgnx y 
a real error • The job is now complete. 


Note the four new items: 


-a new POKE statement before OPEN 1; 

_ three cursor downs before the final POKE; 

— — only one final POKE line to be typed; 

— — no need to close the file at end of merge. 


The new system is simpler, and also corrects a minor 
original POKE 611 merge. Few people spotted it, but 
procedure caused line 1 to disappear. 


problem on the 
the original 


********** 


The following routines were developed by Paul Higg inbottom for use in 
the Commodore Pet Centre. 

The first, which is for 8K Pets but can be adapted for new Rems, allows 
repeated cursor movements. The cursor in this routine is shown as an 
asterisk and will move in the desired direction as long as the key is 
pressed down: 



10 PRINT "ch >!> 4 'U' ^ ^ ' 

2 HID 4<>20„ 

40 n^A =°66 THEN PRINT " ^ ^ *^= "; : 0°^° 20 

50 IF A = 73 THEN PRINT " *<«= "; : GOTO 20 

60 IF A = 194 THEN PRINT - £g!t 3* = ™ » 

70 IF A = 201 THEN PRINT " ; : GOTO 20 

The second will produce a "perfect resolution" sine wave down the paper 
on a Commodore 3022 tractor feed printer: 

10 DIMA$ (5) 

20 PORI = 0TO5 
30 FORJ = 0TO5 

40 READA:A$ (I) = A$ (I) + CHR$ (A) 

50 NEXTJ,I 
60 DATA64,0,0,0,0r0 
65 DATA0,64,0,0,0#0 
70 DATA0,0,64,0,0,0 
75 DATA0,0,0,64,0,0 

80 DATA0,0,0,0,64,0 
85 DATA0,0,0,0,0,64 

100 FORI=0TO2*nSTEPn /I00 
105 B=(SIN(I)+1)*230 

110 OFEN6,4,6:PRIOT#6,CHR$(5) 

120 OEEN5,4,5:PRINT*5,A$((B/6-INT(B/6)) 6) 

130 OPEN4 f 4,0: PRINT* 4 , TAB (INT (B/6)); CHR$ (254) 

140 CI>OSE4:CDOSE5:CDOSE6:NEXTI 


*********** 


The letter below, originelly oa^to us ae 

2i SfTTbl re-typed. the routine is not as daft as it may seem! 


Dept, of Animal Services 
Ninewells Hospital 
Dundee DD2 


31st August 1979 


Dear Sir, 

You may like to have the enclosed short program for the 'Newsletter*. 
It eliminates itself! 

This is not just a joke but can be used e.g. to eliminate instructions 

before usinq a text processor so as to free working space for string . 

^fthat case line 7 would be a , GETA$' loop. Two or more, programs 
In tnat c _ • __ae +-r\ oliminate more 


i.e. 


-.4- nscp line / would ue a vacixnv 

lines 8 & 9 can be placed in sequence so as to eliminate more 1 



the control characters have been 


tty printer doesn't do graphics so 
represented as follows: 


Clear screen = els 
Cursor down ~ d 

These*"are underlined in ink in the print-out submitted. 

The program works as follows: 

Line 8 prints the figures 1 to 9 down thescreen^puts9 v r6tUrnS 
into the keyboard buffer (poked into locations 527, 528 etc.) 

Line 9 puts an additional 'return' into the buffer (536 by now) so that 
the 6 instruction 'RUN100* is covered. This gets the program going again 
after^. °Three more 'Cursor ups' are printed than the number of lines 
to£ d^. Nine lines in this case, so 12 ‘Cursor ups^ Thentte 
number of items in the buffer are put into location 525, and they are 
fired off by 'END'. 

Yours sincerely. 


W. J. Herbert 


1 REM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 

7 REM ™ 

8 PRHTT"clSdd": P0RI=1T09: PRINT: PQKE526+I,13 :NEXT 

9 POKE536,13:PRrNT"RUNl00 A/v A/v ~ ^ ^ /s/VA ":POKE525, IOjEMD 
100 PRINT"clsELIMINATED! " 


********** 


lb simplify the use of our 2040 disk, we are making available a program 
called: "WEDGE - DOS SUPPORT PROGRAM". This adds several commands to 
the Pet in direct mode and simplifies several disk procedures. Dealers 
already have copies and it is being included with future deliveries o 
floppy disk units. 




The purpose of this program is to aid the CBM or PET 2001 
User in operating the 2040 Dual Floppy Disk System. This 
instruction sheet has been written with the assumption tha 
the readi? has a working knowledge of the 2001 series and 

the 2040. 

NOTE: This program has been placed in the P u kJ^ c 

Please refer all comments and suggestions to the Editor. 

The normal method with which the PET communicates with an 
IEEE Buss device is by the BASIC commands OPEN, PRINT, GET, 
INPUT and CLOSE. These statements are somewhat ^ erb ° 
nature and therefore more prone to operator err ° r * 
is also the limitation that INPUT and GET cannot be used in 
direct mode due to shared buffer areas. These conditio 
are easily handled with the DOS SUPPORT PROGRAM. 

DOS SUPPORT PROGRAM may be loaded (saved) as if it were 
a normal BASIC program. Note should be made^of the 
t-hat the 2040 has a special load file name which if 

used immediately afte/power up (reset) executes the following: 

1. Initali'zes Drive 0 

2. Loads the first file on that drive 

Thus if the command LOAD"*", 8 is executed and the DOS 
SUPPORT Program is the first directory entry 
loaded. When the DOS SUPPORT Program is 

locates itself up into the highest available RAM “°JJ SIC , 
locations, links into the CHRGET routine and ad 3 usts BASIC 
too of memory pointer down. This technique uses about 350 
bytes of the Users memory but normal machine operations may 
proceed without having to reload the DOS SUPPORT Program 
until such time that a system reset is performed. 

The DOS SUPPORT Program functions by capturing th ® da ^ a 
the PET operating system passes to BASIC, before the l 
prefer has a chance to spare it. Thus we can lo ° k J°*, Key 

^escape) characters and process the disk COT ^J^ interpreter 
follows without the use or knowledge of the BASIC interpreter. 

There are four key characters that are recognized by the 
DOS SUPPORT Program. They will be processed only " ^SYNTAX 
are found in column one of an input line, otherwi 

ERROR will occur. 

DOS SUPPORT KEY CHARACTERS 


<§ or > - Passes commands to the Disk. 
/ - LOAD'S a program. 
i - LOAD'S and RUN’s a program. 



The greater than symbol when used preceeding , 
command, passes that command directly to the Floppy Dis 
System. See the following examples. 


Thus: 

>10 

is the same as: 
PRINT#15,"10" 
and: 

>S0:FILE1 
is equal to: 

PRINT#15,"S0:FILE1" 


As you can see the > symbol is a substitute for the 

statement. Remember that an OPEN statement 

before a PRINT may be executed but no OPEN is required 

the DOS SUPPORT Program. 

The second function of the > command is the directory list 
command. As you know the directory of a minidisk can d 
loaded with a LOAD"$0",8. This LOAD will destroy any pro¬ 
gram you might have in memory. To avoid the destruction 
of the current program the DOS SUPPORT program prints the 
directory on the screen. 

To avoid possible directory schrolling, you may depress the 
SPACE key to stop the listing of a directory. ^) Y 

key to continue the listing - or you may depress the RUN/ 
STOP key to stop the directory listing and return ^.o basic 


>$0 


Means - Display the*entire directory of Drive 0 

>$1:Q* 


Means - Display the directory entries of all files on Drive 1 
that have names starting with the letter Q. 

The third function of the > command is the error channel in¬ 
terrogation feature. The error channel is read by typing a > 
followed immediately by a RETURN. This is equivilent to the 
following program segment. 

10 OPEN 15,8,15 

20 INPUT# 15,ER,MSG$,DRV,SEC 

307ER",MSG$","DRV","SEC 

For Users that have the CBM Model Business Keyboard the 
"@" key may be used in place of the > for key entry con- 
vience. This eliminates shifting for this command. 

The LOAD / and LOAD-RUN + command characters operate the 
same as their BASIC counterparts only with a simplified 
syntax as follows: /WUMPUS 



- This command will load the program file WUMPUS. Both 
drives will be searched if required. 


+1:COPY DISK FILES 

- This command will load the program COPY DISK FILES from 
Drivel 1 (if it is there) and execute it. 

The following requirements and limitations are placed on 
the DOS SUPPORT Program User. 

1. The DOS SUPPORT commands may only be used in the direct 

2? dS programs using GET or INPUT should disable the DOS SUPPORT 
program with the following command: 

POKE 1022,128 

Then, prior to program exit, DOS SUPPORT can be restored 
by using another POKE statement: 

POKE 1022,08 


3. The DOS SUPPORT Program can 
direct mode as shown above, or 


be disabled/restored on the 
may be disabled easily by 


typing: 


>K and depressing RETURN 


5 SVS2222 

10 PRINT"r3"TAB< 11 V--" 

20 PRINTTAB<11 > " 3 PET DOS SUPPORT " 

30 PRINTTAB <14 >"NOW LOADED 
40 PRINTTAB<9>" COMMANDS FOLLOWING" 

50 PRINTTAB< 7 > " A > OR 0 IN COLUMN 1 WILL" 

60 PRINTTAB<SO "BE PASSED TO THE DISK.M" 

90 PRINTTAB < 7 >"CMD DESCRIPTION" 

140 PR I NTT AB < 7 > " $ DIRECTORS-' BOTH DRIVES 

150 PRINTTRB<7>"$0 DIRECTORS' DRIVE 0 

160 PR I NTT AB (?>"$ 1 DIRECTORS' DRIVE 1W" 

180 PRINTTAB<7>" ALL 2040 COMMANDS MAV BE 
190 PRINTTAB<7>"ENTERED AS IF THEV WERE IN 
208 PRINTTAB<7>"A PRINT# STATEMENT. 

220 PRINTTAB<11 >"M3SPECIAL COMMANDS 

238 PRINTTAB<7>"M/ LOAD A PROGRAM 

240 PRINTTAB < 7 > “ T RUN A PROGRAM 

250 PRINT" SPECIAL COMMANDS START IN COL 1 AND 

268 PRINT"ARE FOLLOWED BV A 2040 FILENAME. 

270 HEW 



PETD0S4.9. 


LINE# 

LOC CODE 

LINE 

0001 

0000 

;m***************************** 

0002 

0000 



0003 

0000 

;* 

PET DOS SUPPORT 

0004 

0000 

;* 


0005 

0000 


04-27-79 

0006 

0000 

:■* 


000? 

0000 


BOB FAIRBAIRN 

0008 

0000 



0009 

0000 

;*** *m************************* 

0010 

0000 

>* 


0011 

0000 


VERSION 3.1 6/14/79 

0012 

0000 


ADD 0 PROMPT FOR BUSINESS 

0013 

0000 

;# 

KEYBOARD. ADD STOP KEY CHECK 

0014 

0000 

;* 

IN DIRECTORY PRINT. ADD 

0015 

0000 

* 

HALT IN DIRECTORY PRINT 

0016 

0000 

;* 


0017 

0000 

.* 

VERSION 3.2 7/2/79 

0018 

3000 

* 

FOR <—04) ROM 

0019 

0000 


WITH LOAD ADDRESS ONE OFF 

0020 

0000 

:* 

BYTE LOW. 

0021 

0000 

;# 


0022 

0000 


VERSION 3.3 7/2/79 

0023 

0000 

;* 

ADD STACK LOOKUP FOR 

0024 

0080 

• * 

ACTIVATION. 

©025 

0000 

:.*■ 


0026 

0000 

;* 

VERSION 4.0 7/5/79 

0027 

0000 

;* 

ADD CONTROL FOR CMD DURING 

0028 

0000 

;* 

A DIRECTORY LISTING. 

0029 

0000 

, * 



0031 

0000 



0032 

0000 

;BASIC VARIABLES USED 


0033 

0000 

,1 


0034 

0000 

VERCK =$9D 

VERIFY FLAG 

0035 

0000 

SAL =$C7 

;INDIRECT POINTER LO 

0036 

0000 

SAH =$C8 

HI 

0037 

0000 

WSW =$B3 

UNUSED FLAG <BASIC> 

0038 

0000 

CNTDN =$BA 

;SAVE AREA 

0039 

0000 

GRBTOP =$5C 

;INDIRECT POINTER 

0040 

0000 

MENSIZ =$34 

POINTER TO TOP MEM 

0041 

0000 

TXTPTR =$77 

POINTER TO BUF 

0042 

0000 

SPERR =$10 

:EOI ERROR BIT 

0043 

0000 

BUF =$0200 

BASIC INPUT BUFFER 

0044 

0000 

SATUS =$96 

STATUS BYTE 

0045 

0000 

SA =$D3 

SECONDARY ADDRESS 

0046 

0000 

FA =$B4 

PRIMARY ADDRESS 

0047 

0008 

LA =$B2 

;LOGICAL DEVICE # 

0048 

0000 

FNLEN =$D1 

;FILE NAME LENGTH 

0049 

0000 

FNADR =$DA 

FILE NAME ADDRESS 

0050 

0000 

EAL =$C9 

END ADDR LO 

005 1 

0000 

EAH =$CA 

: HI 





0052 

0053 

0054 

0055 

0056 

005? 

0058 

0859 

0068 

3061 

0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0883 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
009 1 
0092 
0093 
0894 

0096 
0097 
0098 
0099 
0108 
0101 
0102 
0103 
0104 
0 1 05 
0106 


000U 

BFL i 0 

=$B8 

0009 

VARTAB 

= $2 A 

0000 

TMF’2 

=$FD 

0000 

0000 

,PROGRAM VARIRBLES 

0000 

0000 

CR 

=$8D 

0000 

FLAG 

=WSW 

0000 

PIAK 

=$E812 

0000 

CMDLN 

=CMDEND-CMD 


;DEFAULT OUTPUT DEV. 
END OF BASIC PGM. 
;TEMP VRFIRBLE 


SYMBOLIC CARPIROE RETURN 
BYTE USED RS R FLRG 
KEYBOARD I/O PORT 
•LENGTH OF RELCOATE 


0000 

0008 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

8000 

0000 

0000 

0000 

0000 

0000 

0000 

0080 

£1000 

0000 

0000 

0000 

0080 

0000 

0000 

0000 

0000 

0000 


;PET ROUTINES USED 

LINPRT =$DCD9 
SPMSG =$F315 
LD15 =$F322 
TWAIT =$F8E6 
CHRGET =#70 
CHRGOT =$76 
NEWSTT =$C6C4 
PRT =$E3I'8 
LISTN =$F0BA 
SECND =$F128 
ClOUT =$F16F 
UNLSN =$F183 
ACPTR =$F18C 
TALK =$F0B6 
OPENI =$F466 
FCLOSE =$F2AE 
READY =$0389 
RUNG =$0572 
LNKPRG =$0442 
UN'TLK =$F1?F 
STXTPT =$C5A7 
CHKIN =$F778 
CHKQUT =$F7BC 
CLRCHN =$FFCC 
BASIN =$FFCF 
STOP1 =$F301 

BSOUT =$FFI'2 
FOPEH =$F524 
LD209 =$F3E6 


;PRINT LINE # 

; SEND A MESSAGE 
LOAD ROUTINE 
WRIT FOR STOP KEY 
;INPUTS CHARACTERS 
GET LAST CHAR 
NEW STATEMENT EXEC 
;PRINT A CHARACTER 
;SEND LISTEN 
:SEND SA 
;SEND CHARACTER 
;UN LISTEN 
GET A CHRRCRTER 
;SEND TALK 
OPEN FILE 
;CLOSE FILE 
REENTER BASIC 
;CLEAR VARIABLES 
LINK BASIC LINES 
UN TALK 

SET START TEXT POINTER 
;CHECK IN 
;CHECK OUT 
;CLEAR CHANNEL 

• PftC- T p T KJ 

;CHECK FOR STOP KEY 
;BASIC OUT 
;FILE OPEN 
;LORD ERROR 


0000 

0000 

0000 

0000 

0000 

0700 

0700 EA 
0701 E6 77 
0703 D© 02 
0705 E6 78 
0707 86 B3 


;WEDGE IN ROUTINE WITH THE 
;COMMAND PARSER AND EXECUTITION 


*=$0700 

CMD NOP 

INC TXTPTR 
BNE WG100 
INC TXTPTR+1 
WG100 STX WSW 


; THROWN AWAY 
;BUMP POINTER 


SAVE X 


IN WSW 








0107 

0709 

BA 


0108 

070A 

BD 

01 01 

0109 

070D 

C9 

9B 

0110 

070F 

D8 

3A 

0111 

0711 

BD 

02 01 

0112 

0714 

C9 

C3 

0113 

0716 

D0 

33 

0114 

0718 

A5 

77 

0115 

071A 

D0 

2C 

0116 

071C 

A5 

78 

0117 

07 IE 

C9 

02 

0118 

0728 

B0 

26 

0119 

0722 



0120 

0722 

A0 

00 

0121 

0724 

84 

B3 

0122 

0726 

B1 

77 

0123 

0728 

C9 

3E 

0124 

072A 

F0 

11 

0125 

072C 

C9 

40 

0126 

072E 

F0 

0D 

0127 

0730 

C8 


0128 

0731 

85 

B3 

0129 

0733 

C9 

2F 

0130 

0735 

F0 

63 

0131 

0737 

C9 

5E 

0132 

0739 

F0 

5F 

0133 

073B 

D0 

0B 

0134 

073D 

C8 


0135 

073E 

B1 

“7 “7 
i I 

0136 

074© 

F0 

32 

0137 

0742 

C9 

24 

0133 

0744 

F0 

54 

0139 

0746 

D0 

03 

0140 

0748 

4C 

76 00 

0141 

874B 

A6 

B3 

0142 

074D 

4C 

76 00 


0144 

0750 




0145 

0750 




0146 

0750 




0147 

0750 

A9 

08 


0143 

0752 

85 

D4 


0149 

0754 

A9 

6F 


0150 

0756 

85 

D3 


0151 

0758 

20 

Bfi 

F0 

0152 

075B 

A5 

D3 


0153 

075D 

20 

28 

FI 

0154 

0760 

E6 

77 


0155 

0762 

A0 

00 


0156 

0 (’ b4 

B1 

77 


0157 

0766 

F0 

©6 


0158 

0768 

20 

6F 

FI 

0159 

076B 

B8 



0160 

076C 

50 

F2 


0161 

076E 




0162 

076E 

20 

83 

FI 


LDfi #0101,X 
CMP ##9B 
BNE NOMRIN 
LBfl #0102,X 
CMP ##C3 
BNE NOMRIN 
LDfi TXTPTR 
BNE WG997 
LDfi TXTPTR+1 
CMP #>BUF 
BNE WG997 

# i 

WG110 LDV #0 

STV FLAG 
LDfi <TXTPTR>,V 
CMP *'> 

BEQ WG115 
CMP 

BEQ WG115 
INV 

STfi FLAG 
CMP #'/ 

BEQ DODIR 
CMP #94 
BEQ DODIR 
BNE WG997 

WG115 INV 

LDfi <TXTPTR>,V 
BEQ RDERR 
CMP #'# 

BEQ DODIR 
BNE NOTDIR 

WG997 JMP CHRGOT 

NOMRIN LDX WSW 

JMP CHRGOT 


.i 

; SEND COMMAND TO DISK 


NOTDIR 

LDA 

#3 


STfi 

Ffi 


LDfi 

##6F 


STA 

SA 


JSR 

LISTN 


LDfi 

SA 


JSR 

SECND 

BUMP 

INC 

TXTPTR 


LDV 

#0 


LDfi 

< TXTPTR >,V 


BEQ 

WG120 


JSR 

CLV 

Cl OUT 


BVC 

BUMP 

WG120 

JSR 

UNLSN 


GET STACK POINTER 

WERE WE CALLED BV MAIN 
; NO... 

;MAVBE? 

;NOT THERE... 

FIRST COLUMN 
;GET OUT NOT FIRST CHR 

IN BUFFER? 


;.V IS BUF INDEX 
;FLAG SET FOR DIR 

;COMMAND PROMPT? 

; VES... 

;BUSINESS KEYBOARD PROMPT 
; VES... 

SET FLAG FOR LOAD 
;LOAD PROMPT 

;CHECK FOR ARROW 


READ ERROR CHANNEL 
DIRECTORY? 

; VES 


RESTORE .X AND 
RETURN TO CHRGOT 


; GET DEVICE ADDRESS 
;SECONDARY ADDRESS 15 


j SEND SECONDARY ADDR 
;INDEX=0 

,' GET THE FIRST CHARACTER 
ZERO IS LAST CHAR 
;SEND THE CHAR 

MORE 

;UN LISTEN 



CLV 

BVC WG998 

REAB THE ERROR CHANNEL 


©163 

0771 

B8 


0164 

0772 

50 23 


0165 

0774 



0166 

0774 



0167 

0774 



0163 

0774 

34 77 


0169 

0776 

A9 08 


0170 

0778 

85 B4 


0171 

077A 

20 B6 F0 

©172 

077B 

A9 6F 


0173 

077F 

35 B3 


0174 

0781 

20 23 FI 

0175 

0784 

20 SC FI 

0176 

0787 

C9 0D 


0177 

0789 

F0 06 


0173 

073B 

20 D8 E3 

0179 

073E 

B8 


0180 

078F 

50 F3 


0131 

0791 

20 B3 1 

E3 

0132 

0794 

20 7F I 

FI 

0183 

0797 

4C 76 

00 

0185 

079A 



0186 

079A 



0187 

079A 



0188 

079A 

C8 


0189 

079B 

B1 77 


0190 

079B 

B0 FB 


0191 

079F 

38 


0192 

07A0 

34 B1 


0193 

07A2 

A9 01 


0194 

07A4 

85 BA 


0195 

07A6 

A9 ©2 


0196 

07A8 

85 BB 


0197 

07AA 

A9 08 


0198 

07AC 

85 B4 


0199 

07AE 

A5 B3 


0200 

07B0 

B0 53 


0201 

07B2 

A5 B2 


0202 

07B4 

35 B3 


0203 

07B6 

A5 B0 


0284 

07B8 

85 BA 


0205 

07BA 

A9 60 


0206 

07BC 

85 B3 


0207 

07BE 

A9 0E 


0208 

07C0 

85 B2 


0209 

07C2 

20 83 

FI 

0210 

07C5 

20 24 

F5 

0211 

07C8 

A9 00 


0212 

07CA 

35 96 


0213 

©7CC 

A© ©3 


0215 

07CE 

34 B1 


0216 

07B0 

A2 0E 


0217 

07B2 

20 70 

F7 

0218 

07B5 

20 CF 

FF 

0219 

07B8 

85 FB 


0220 

07BA 

A4 96 


0221 

07BC 

B0 29 


0222 

07BE 

20 CF 

FF 

0223 

07E1 

35 FE 


0224 

07E3 

A4 96 


0225 

07E5 

B0 20 


0226 

07E7 

A4 B1 


0227 

07E9 

S3 


0228 

07EA 

B0 E2 


0229 

07EC 

20 CC 

FF 


RBERR 

STV 

TXTPTR 


LBA 

#8 


STA 

FA 


JSR 

TALK 


LBA 

#*6F 


STA 

SA 


JSR 

SECNB 

WG140 

JSR 

ACPTR 


CMP 

#CR 


BEQ 

WG130 


JSR 

CLV 

PRT 


BVC 

WG140 

WG130 

JSR 

PRT 


JSR 

UNTLK 

WG998 

JMP 

C-HRGQT 

;PRINT 

THE 

DIRECTORV 

1 

BOBIR 

INV 



LBA 

<TXTPTR>,V 


BNE 

DEV 

BOBIR 


STV 

FNLEN 


LBA 

#<BUF+1 


STA 

FNABR 


LBA 

#>BUF 


STA FNABR+1 


LBA #8 
STA FA 
LBA FLAG 
BNE LOABB 
LBA LA 
STA NSW 
LBA BFLTO 
STA CNTBN 
LBA #*60 
STA SA 
LBA #14 
STA LA 
JSR UNLSN 
JSR FOPEN 
LBA #0 
STA SATUS 
LBV #*03 

WG220 STV FNLEN 
LBX #14 
JSR CHKIN 
JSR BASIN 
STA TMF2 
LBV SATUS 
BNE WG235B 
JSR BASIN 
STA TMP2+1 
LBV SATUS 
BNE WG235B 
LBV FNLEN 
DEV 

BNE W6220 
JSR CLRCHN 


;FIX POINTER 
SET FA 


; COMMAND CHANNEL SA 
;SEND SA 

;GET BVTE FROM BISK 


; PRINT BVTE TO SCREEN 

LOOP FOR MORE 
;PRINT CR 
IJN TALK 
;BONE WITH CMB 


GET LENGTH OF CMB 


SET LENGTH <-l> 

: FILE NAME ABBRESS 


DEV ICE ABBRESS 

; 0 MEANS BIR 
BO A LOAB 
;SAVE LA 

SAVE BFLTO 

SECONBARV ABBR 

;OPEN THE FILE 

; BONT LISTEN TO FLOPPV 


SET STATUS TO 0 
LOOP THREE TIMES 

; SAVE NEW COUNT 
BISK CHANNEL 


CHECK STATUS 
BAB STATUS 


;CHECK STATUS 

MORE TO DO? 

NOT BONE VET 
CLEAR CHANNEL 





0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

©252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0268 

0261 

0262 

0263 

3264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

©274 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

0286 

0237 

0238 

0289 

0290 

0291 

0292 

0293 

0294 


07EF 

A6 

BA 



LDX 

CNTDN 

07F1 

E© 

03 



CPX 

#3 

07F3 

F@ 

05 



BEQ 

#+7 

07F5 

A6 

B3 



LDX 

WSW 

07F7 

20 

BC 

F7 


JSR 

CHKOUT 

07FA 

A6 

FD 



LDX 

TMP2 

07FC 

A5 

FE 



LDA 

TMP2+1 

07FE 

20 

D9 

DC 


JSR 

LINPRT 

0801 

A9 

20 



LDA 

#' 

08O3 

D0 

86 



BNE 

SKIPB 

0805 

D0 

6C 


LOADB 

BNE 

LOAD 

08O7 

DO 

5D 


WG235B 

BNE 

UG230 

0809 

D0 

C3 


WO220B 

BNE 

WG220 

088B 

2@ 

D2 

FF 

SKIPB 

JSR 

BSOUT 

080E 

20 

CC 

FF 


JSR 

CLRCHN 

0811 

A2 

0E 


WG250 

LDX 

*14 

0813 

£0 

70 

F7 


JSR 

CHKIN 

@816 

20 

CF 

FF 


JSR 

BASIN 

0819 

48 




PHA 


081A 

20 

CC 

FF 


JSR 

CLRCHN 

©8 ID 

68 




PLA 


08 IE 

A6 

96 



LDX 

SATUS 

0820 

D0 

44 



BNE 

WG230 

@822 

C9 

00 



CMP 

*0 

0824 

F0 

26 



BEQ 

WG240 

0826 

A6 

BA 



LDX 

CNTDN 

0828 

E0 

03 



CPX 

*3 

082A 

F0 

05 



BEQ 

#+7 

082C 

A6 

B3 



LDX 

WSW 

082E 

20 

BC 

F7 


JSR 

CHKOUT 

0831 

20 

D2 

FF 


JSR 

BSOUT 

0834 

20 

CC 

FF 


JSR 

CLRCHN 

0837 




.i 



0837 




;CHECK 

FOR 

STOP KEV 

0837 




; 



0837 

20 

01 

F3 


JSR 

STOP1 

083A 

F0 

2A 



BEQ 

WG230 

083C- 

20 

E4 

FF 


JSR 

$FFE4 

083F 

F0 

DO 



BEQ 

WG250 

0841 

09 

20 



CMP 

#$20 


;CHECK DFLTO FOR SCREEN 


;OPEN THE PRINT CHANNEL 


;PRINT LINE NUMBER 
;PRINT A SPACE 
;SKIP OVER BRANCHES 
;< JMP> 

;<JMP> 

;<JMP> 


; DISK CHANNEL 


; BAD 
;EQL 

;CHECK DFLTO FOR SCREEN 


AND PAUSE 

;STOP KEV 
; YES. .. 

:GET A CHAR FROM KEYBOARD 
;NOTHING... 

;SPACE BAR? 


0843 

0845 

0848 

084A 

084C 

084C 

084E 

©850 

0852 

0854 

0856 

0859 

085C 

035F 

0862 

0864 

0866 

0866 

0866 

0866 

0869 

086B 

036E 

086F 

0870 


D0 

CC 



BNE 

WG250 

28 

E4 

FF 

WG255 

JSR 

$FFE4 

F© 

FB 



BEQ 

WG255 

D0 

C-5 



BNE 

WG250 

A9 

0D 


1 

WG240 

LDA 

#CR 

A6 

BA 



LDX 

CNTDN 

E0 

@3 



CPX 

#3 

F0 

05 



BEQ 

#+7 

A6 

B3 



LDX 

WSW 

20 

BC 

F7 


JSR 

CHKOUT 

20 

D2 

FF 


JSR 

BSOUT 

20 

CC 

FF 


JSR 

CLRCHN 

20 

83 

FI 


JSR 

UNLSN 

A0 

02 



LDV 

*$02 

D0 

A3 



BNE 

WG220B 




;CLOSE 

FLOPPY AND 

20 

CC 

FF 

WG230 

JSR 

CLRCHN 

A9 

0E 



LDA 

#14 

20 

RE 

F2 


JSR 

FCLGSE 

63 




PLA 


68 




PLA 


4C 

89 

C3 


JMP 

READY 


;NO... 

;ANV KEV STARTS 

; <jmp :> 

CHECK DFLTO FOR SCREEN 

; DO TWICE 

RETURN 

CLOSE FLOPPY 
CLEAN UP THE STACK 


RETURN “ READY " 





0296 

0873 


0297 

0873 


0298 

0873 


0299 

0873 

A9 00 

0300 

0875 

85 96 

0301 

0877 

35 9D 

0302 

0879 

20 22 F3 

0303 

087C 

A5 96 

0304 

087E 

29 10 

0305 

0880 

D0 23 

0306 

0882 

FlD 84 F 3 

0307 

0885 

30 06 

0388 

0887 

E6 C9 

0309 

0889 

D8 02 

0310 

088B 

E6 CA 

0311 

088D 

A5 CA 

0312 

088F 

85 2E 

0313 

0891 

A5 C9 

0314 

0893 

85 2A 

0315 

0895 

20 72 C5 

0316 

0898 

20 42 C4 

0317 

089E 

A5 B3 

0318 

089D 

C9 2F 

0319 

089F 

DO 03 

0320 

08 A1 

40 89 C3 

0321 

08A4 

20 A7 C5 

0322 

08A7 

4C C4 C6 

0323 

08AA 

4C E6 F3 

0324 

08AD 


0326 

08AD 


0327 

08AD 


0328 

08AD 


6329 

88AD 


0330 

08AD 


0331 

08AD 

A5 34 

0332 

08AF 

IS 

0333 

08E0 

E9 AD 

0334 

33B2 

85 34 

0335 

08B4 

A5 35 

0336 

08B6 

E9 01 

0337 

08 ES 

85 35 

0338 

08 B A 


0339 

08 BA 


0340 

08 BA 


0341 

08 BA 

A0 01 

0342 

08BC 

A9 00 

0343 

08BE 

85 C7 

0344 

08C0 

A9 07 

0345 

08C2 

85 C3 

0346 

08C4 

A5 34 

0nI* 4 1 

08C6 

85 5C 

0348 

08C8 

A5 35 

0349 

08CA 

85 5D 

0350 

yyi-C 

El C7 

0351 

OSCE 

91 5C 

0352 

08 D0 

C3 

0353 

08D1 

D0 F9 

8354 

08D3 

E6 5D 

0355 

08 D5 

E6 Co 


j LOAD fl FILE 

LOAD LDA #0 

STA SATUS 
STA VERCK 
JSR LD15 
LDA SATUS 
AND #SPERR 
ENE LDiRR 
LDA *F384 
EMI LOAD1 
INC EAL 
ENE LOAD1 
INC EAH 
LOAD1 LDA EAH 

STA VARTAB+1 
LDA EAL 
STA VARTAB 
JSR RUNG 
JSR LNKPRG 
LDA FLAG 
CMP # V 
ENE WG300 
JMP READV 
WG300 JSR STXTPT 
JMP NEWSTT 
LDERR JMP LD209 
CMDEND 


POKE LDA MEMSIZ 
CLC 

SEC #<CMDLN 
STA MEMSIZ 
LDA MEMSI2+1 
SBC #>CMDLN 
STA MEMSIZ+1 

..MOVE THE CODE 

MOVE LEV #*01 
LDA #CCMD 
STA SAL 
LDA #:CMH 
STA sAH 
LDA MEMSIZ 
STA GRBTUP 
LDA MEMSIZ+1 
ST A GRET UP+1 
MOV1 LDA < SAL .• V 

STA <GRBTOF'>V 
I MV 

ENE MOV1 
INC GRBTOF+1 
INC SAH 


; CLEAR STATUS 
LOAD NOT VERIFY 
LOAD A PROGRAM 

CHECK STATUS -CEOI OK> 

;CHECK FOR <-04> ROM 

; NOT <-04 >-- 

;FIX THE LOAD <-04} ROM 


,SET BASIC'S POINTERS 


.FIX POINTERS 
FIX LINKS 

; CHECK FOR LOAD OR RUN 
; LOAD ? 

NO. . . 

; LOAD RETURN TO BASIC 
SET TXTPTR FOR RUN 
RUN PROGRAM 
;PRINT "LOAD ERROR" 


; POKE TOP DOWN 
;MINUS ONE 


; SET UP FROM ADDR 


SET UP TO AI*DR 


. RELOCATE 


THIS ROUTINE POKES TOP OF MEMORY 
. DOWN RELOCATES THE PARSER AND 
; SETS THE WEDGE 









035*? 

08D7 

85 

C8 


0357 

yyDy 

09 

08 


0358 

©8 DB 

FO 

02 


0359 

08DD 

BQ 

04 


0360 

88DF 

ft© 

08 

MGV2 

0361 

08E1 

FO 

E9 


0362 

08E3 




0363 

Q8E3 



;WEDGE 

0364 

08E3 



; 

0365 

08E3 

89 

4C 

WEDGE 

£12**66 

08E5 

85 

70 


0367 

08E7 

84 

34 


0368 

QSE9 

86 

35 


0369 

08EB 

08 



0370 

08EC 

ne 

01 


0371 

08EE 

E8 



0372 

08EF 

84 

71 

WEDGE1 

0373 

0SF1 

86 

1 cl 


0374 

88F3 

60 



0375 

08F4 




ERRORS 

= 0000 




SVMBOL TABLE 


SVMBOL 

VALUE 



ACPTR 

F180 

BASIN 

FFCF 

BUMP 

0760 

CHKIN 

F770 

CHRGOT 

0076 

Cl OUT 

F16F 

CMDEND 

08 AD 

CMI'LN 

01 AD 

DFLTO 

00B0 

DODIR 

079A 

FA 

00D4 

FCLOSE 

F2AE 

FNLEN 

©0 D1 

FOPEN 

F524 

LD15 

F322 

LD209 

F3E6 

LISTN 

F0BA 

LNKF'RG 

C442 

LORDB 

0805 

MEMSIZ 

0034 

MOVE 

08BA 

NEWSTT 

C6C4 

OPEN I 

F466 

PIRK 

ESI 2 

RDERR 

0774 

READY 

C389 

SfiH 

00C8 

SAL 

00C7 

SKIPB 

080B 

SPERR 

0010 

STXTPT 

C5A7 

TALK 

F0B6 

TXTPTR 

0077 

UNLSN 

FI 83 

VERCK 

009D 

WEDGE 

08E3 

WG110 

0722 

WG115 

073D 

WG140 

0784 

WG220 

07CE 

WG235B 

0807 

WG240 

0840 

WG300 

08A4 

WG997 

0748 


LDA S'AH 
CMP #>CMBEND 
BEQ M0V2 
BCS WEDGE 
LDV #0 
BEQ MOV1 

INTO BASIC 

LDR #$4C :JUMP INSTRUCTION 

ST0 CHRGET 

LDV MEMSIZ 

LDX MEMSIZ+1 

INV 

ENE WEDGE1 
INK 

STY CHRGET+1 
3TX CHRGET+2 
RTS 
. END 


BSOUT 

FFD2 

BUF 

0200 

CHKOUT 

F7BC 

CHRGET 

0070 

CLRCHN 

FFCC 

CMIi 

0700 

CNTDN 

08BA 

CR 

000D 

EAH 

00CA 

EAL 

0009 

FLAG 

00B3 

FNADR 

00DA 

GRBTOP 

005C 

LA 

00D2 

LDERR 

08AA 

LINPRT 

DCD9 

LOAD 

0873 

LOAD 1 

USfa'D 

MOV 1 

03CC 

M0V2 

08DF 

NOMAIN 

074B 

NOTHIR 

0750 

POKE 

0SAD 

PRT 

E3D8 

RUNG 

C572 

SA 

00D3 

SATUS 

0896 

SECND 

FI 28 

SPMSG 

F315 

STOP 1 

F 301 

TMP2 

00FD 

TWA IT 

F8E6 

UNTLK 

F17F 

VARTAB 

002R 

WEDGE1 

0SEF 

WG 100 

0707 

WG128 

076E 

WG 130 

0791 

WG228B 

0809 

WG230 

0866 

WG250 

0811 

WG255 

0845 

WG998 

0797 

WSW 

00B3 


END OF ASSEMBLY 



6502 MICROPROCESSOR ASSEMBLER FOR CBM PET 2001 

ASMPAC8 is a powerful “mbined machine cede ASSEMBLER and*? DISASSEMBLER^! thV 
8K PETS. ASMPAC8 includes a TEXT f T he Assembler will (1) Test 

host of useful features to run in 7 7 direct1y into free memory or 

Assemble to allow errors to be found (2) Assemble d A J 0L0AD 8 Q r AUT0STRINGS8. 
(3) Assemble object code files allows 

ASMPAC8 is an ideal tool for beginners a * with the Editor. ASMPAC8 allows 

errors to be detected and corrected "r^' a “^“^ h r ^ d lv as the use of Files 
the more experienced programmer to produce programs rap Y 
for Assembly Text is optional for short programs. 

ASMPAC8 is a practical development system and has been designed for ease of use. 
ASMPAC8 complete with the ASMPAC manual . 25 pounds. 

like a Basic program but without the need for a basic suppo p g 

AUTOLOAD available only with ASMPAC8 . ^ pounds 

AUTOSTRINGS8 will convert ASMPAC8 ^ 

then be transferred into the second cas functions. 

The^rogram'incYudes*the — — »' 

the file reading section. 

AUTOSTRINGS8 available only with ASMPAC8 .. 5 pounds. 

ASMPAC16/32 for the new PETS with MK2 ROMS now available with expanded Editor, 
Assembler and debugging routines. 

28.50 

ASMPAC16/32 . 

ORDER STATING IF 8K 16K or 32K PET AND INCLUDING 50p POST AND PACKING FROM 
J C LEMAN, 47 LONDON ROAD, SOUTHBOROUGH, TUNBRIDGE WELLS, KENT 


ASMPAC8 and it's support programs are 


RECOMMENDED BY CBM. 







Book Review 


"6502 APPLICATIONS BOCK" by Rodney Zaks 

This book starts where "Programming the 6502" (reviewed in Issue No. 6) 
left off. Rodney Zaks is a well respected author of computing publications 
and has had considerable experience in training newcomers to the field. 

The "6502 Applications Book" deals with all the Input/Output associated 
with 6502 based systems. As such, the book is particularly relevant 
• to Pet users who wish to interface peripherals and 'home grown devices 
to their computer. 

A large amount of space at the beginning of the book is devoted to 
explaining the intricacies of the various support chips manufactured for 
the 6500 range of micro-processor. These include PIO's such as the 
6520 for handling parallel data complete with hand shaking, and the more 
advanced Versatile Interface Adaptors like the 6522 which contains two 
programmable timers and a Shift Register for converting between serial 
and parallel data. The principles and operation of these devices are 
explained in detail from absolute basics and the text is interspersed 
with numerous diagrams, and worked examples. In addition there is a 
large number of test questions enabling you to keep a check on your 
understanding of each new concept. 

The rest of the book deals with the practical side of interfacing and is 
illustrated with several diverse applications including? a traffic control 
system, a burglar alarm, a music generator and many others. All the 
assembly language routines (an understanding of A.L. programming is a 
pre—requisite) are written in a machine—independent form, for ease of 
application. 

If you intend to interface any device to your Pet, or simply want to 
learn how a system like the Pet works internally, then this is probably 
one of the best books available on the subject. 

The "6502 Applications Book", as with the previous book, is published 
by SYBEX and should be obtainable frcm your nearest computer bookshop. 



************ 



"BASIC COMPUTER GAMES" 


Edited by David H. Ahl 


As the title suggests, this is a collection of computer games written 
in BASIC. The games cane from 'Creative Confuting' and have been 
collected and adapted largely by David Ahl (founder and lusher of 
C.C.). As all the programs are written in Microsoft 8K Basic they are 
completely compatible with the Pet and the listings can be entered 
straight into the keyboard and recorded for later use. 

The book contains 101 games in total, ranging from old J^Sreshinalv 
including Lunar Landing and various card games, to seme refreshingly 
original games such as Animal, and Poetry. Oi the whole, 
tend to be of the static type, requiring mental 3 udgement rather than 
just reactions. The listings and documentation are presented in a tidy 
manner and on the whole, are unambiguous. A large number°f f , ^ 
anthropomorphic computer cartoons gives the publication an informal and 

'friendly' image. 

On the negative side, most of the listings could have 
considerably more efficient without loss of clarity. I ' 

that the programs .were relatively easy to compress when entering them 
into the Pet - saving time and memory space. Also, Pet s graphic 
capabilities enable several of the games to be made more visu y 
interesting with a little extra work. 

Having said that, the book represents very good value for money at a 
published price of £4.50. It is distributed in the U.K. by:- 


Transatlantic Book Service Limited 
24 Red Lion Street 
London WC1R 4PX. 


********** 


Situation Vacant 

Wanted PET Enthusiast 

Wanted, an enthusiastic and knowledgeable exponent of the 
Commodore PET to help run Commodore's PET User Centr.e at 
Euston Road. 

The above position is open to both male and female applicants. 
Please apply in writing and enclose a Curriculum Vitae to:- 


Ms. M. Newman, 
PET User Centre, 
360 Euston Road, 
London. 

NWl 3BL 



Printout 


Sorting Techniques Continued. 

Several people have written to me following my 
re-publication of the SHELL-METZNER sort. All have 
pointed out that the QUICKSORT, by Hoare, is even 
quicker than the SHELL. 


Working on the principle that it id easier to sort two 
small arrays rather than one large one, it chooses an 
element, and splits the array in two, placing smaller 
elements earlier and larger elements later in the array 
than the chosen element. It then operates on each of 
the smaller arrays in exactly the same way. Rather like 
a clerk sorting manualy into smaller and smaller piles, 
the routine eventualy produces sub-arrays which are in 
order and contain only one or two elements each. One 
final exchange in the case of the two element sub-array 
produces the sorted data. 

QUICKSORT likes jumbled data. On average the sort time 
for N elements will be proportional to N*LOG(N). The 
time for the SHELL will be N to the power 5/4 and for 
the Bubble, N squared - on average. 

Hoare suggests choosing the first element as the 
comparison item. However, when the array is ordered or* 
nearly so, most other elements get placed on one side of 
it, creating a very small and a very large sub—array. 

In this case sort times approach that of the Bubble 
sort. One answer suggested by Harrington is to choose 
the middle array element for comparison. This works 
fine for ordered arrays but not for two ordered arrays 
joined end to end. He suggests that choosing an element 
at random is the way out of this problem. 

You will see that where you are looking for the quickest 
to sort data, it is necessary to consider the nature 
of that data and depending on how it is arranged, chose 
a suitable routine. If you cant predict the nature of 
the data, then probably the best compromise is the 
SHELL. 

The following listing is taken from Harrington's article 
m "Micro Computing." 

95 REM SET ARRAY SIZE 
100 LET M=N 

105 REM SET SPACING BETWEEN LIST MEMBERS 
110 LETM=INT(M/2) 

115 REM SEE IF DONE 
120 IFM=0THEN300 
130 LETJ=1 
140 LETK=N-M 

145 REM I & L INDICATED ELMNTS TO BE MERGED 
150 LETI=J 
160 LETIr=l4M 



165 REM PERFORM MERGE 
170 IFA (I) <A (L) G0T024 0 
160 LETT=A (I) 

190 LETA(I) =A(L) 

200 LETA(L)=T 
210 LETI=I-M 
220 IFK1THEN240 
230 GOTO160 

235 REM MERGE NEXT TWO ELEMENTS 


240 LETJ=J+1 

250 IFJ<=KTHENl50 

255 REM BEGIN MERGE OF 


RESULTANT LISTS 


260 GOTO110 
30OREM END OF SORT 










2. Symbolic BASIC 'assembler'. 

2.1 Processing a 'listed' BASIC text. 

In the last issue, I described a method of processing 
BASIC listed text on tape to produce a formatted 
listing. The technique can be extended to actually 
change the text contents, which can then be fed back 
into the memory as a proper but amended program using 
our old friend, the Templeton-Butterfield merge. 

It is not a straightforward matter to change for example 
all occurences of the variable T to become variable V, 
because of the problems in distinguishing variable T 
from variable CT or even PRINT. 

2.2 A personal computer language. 

A solution to the problem is to head each variable you 
type in with a special character such as ! which is not 
part of the normal BASIC syntax. The function of this 
header character is to say "here is the start of a 
variable. 

This means that what you type in is not BASIC but will 
have to be converted using an 'assembly' program. 

Taking matters further, one can type in explicit 
variable names headed by ! and ending with a space say, 
which BASIC cannot differentiate but your assembler 
program can. For example, one can use such variable 
names as IPAYNET , 1PAYGR0SS , and even 1PAYDEDUCTIONS , 
which BASIC would either see as variable PA or complain 
because it finds the reserved word 'TI' or 'ON' hidden 
inside the name. 

The way an assembler handles these psuedo variables is 
to create a table of true variable assignments, 
allocating real variable names A - ZZ as it meets each 
new psuedo- variable. 

When the program has been assembled onto a tape or disk 
file, your assembler can then print out this table 
sorted into both psuedo and real variable order. Such a 
printout makes an excellent addition to the program 
documentation. 

For example 

P suedo text 

10 FOR !INDEX =I START TOIFINISH 
20 PRINT!NAMES$ (1INDEX) 

30 NEXT 

becomes 

10 FORA=BTOC 
20 PRINTA$(A) 

30 NEXT 



and the printed tables are 

A=INDEX FINISH=C 

A$=NAMES$ INDEX=A 

Rs'iTART NAMES $—A$ 

C=FINISH START-B 

2.3 Jump to labels. 

Takincr the idea yet one more step, one can overcome the 
problem of having to type in GOTO, GOSUB and THEN 
without yet knowing what line number you are going to 

jump to. 

The idea is to use label references and labels again 
headed by special characters, perhaps N and . 

Aqain a table is formed of all labels and their line 
numbers. A second pass picks up label references and 
converts them to line numbers using the table. 

For example 

Your text 

10 \START 

20 INPUT"NUMBER 10 OR LESS";1NUMBER 
30 IFlNUMBER >1OTHEN'ERROR 
40 ?"YOUR NUMBER WAS ‘OK'"SEND 
50 \ERROR 

60 ?"YOUR NUMBER WAS TOO HIGH 
70 GOTO*START 


would assemble as 
10 REM START 

20 INPUT"NUMBER 10 OR LESS";A 
30 IFA>10THEN5 0 
40 ?"YOUR NUMBER WAS 'OK'sEND 
50 REM ERROR 

60 ?"YOUR NUMBER WAS TO HIGH' 
70 GOTO10 


And once again your assembler would produce reference 
lists 

ERROR 50 10 START 

START 10 50 ERROR 


Be warned that such assembly using tape and GET# is not 
fast and that your keyed in programs cannot be tested 
until they are assembled. However you will get 
considerable pleasure and satisfaction creating your own 
personal programming language and with large programs 
the technique may have some practical value. 



3. BASIC competition number 4 "Wardrobe Removal" 

This problem simulates one faced by those burly 
gentlemen who help you move house. 

Write a BASIC program which asks for the dimensions of a 
box (right angled ), then the height and width of a 
corridor and finally tells you whether the box will go 
round a right-angled turn in that corridor. 

Entries will be judged on REM annotation as well as 
execution time. The winner will get flO of Commodore 
software. Entries to me within 21 days of the official 
publication date of this issue please. 

4. Results of BASIC competition number 3, "ARRAY ARRAY". 

Yet again the formidable Mr J Clark of Watford emerges 
as the winner of competition no 3, closely followed by 
Mr K.D Armstrong of Edinburgh. 

Mr Clark again provided copious notes. He developed the 
sort routines himself and came to the same type of 
solution as Hoare and Harrington. 

1 1=0:Q=0:P=0:J=0:K=0:S=0: 

2 N=255:DIMa(N),M(N),1(N),B(N) 

2000 GOSUB3000:FORI=1TON:L(I)=A(P): 

A(P)=B(P):P=M(P):NEXT 

2010 GOSUB3000:FORI=lTON:B(I)=A(P):P=M(P):NEXT 

2020 FORI=lTON:M (I) =B (I) :NEXT 

2030 J=l:K=l:FORI=lTON:P=L(J):Q=M(K): 

IFP<QTHENA(I)=P:J=J+l:NEXT:G0T02050 
2040 A(I)=Q:K=K+1:NEXT 

2050 J=N:K=N:F0RI=NT01STEP-1:P=L(J):Q=M(K): 

IFP QTHENB(I)=P:J=J-l:NEXT:G0T02 07 0 
2060 B(I)=Q;K=K-1:NEXT 
2070 RETURN 
3000 F=-15 

3010 F=F+16:GOSUB4000:P=S:F=F+16:GOSUB4000: 
Q=5:GOSUB5000 

3020 IFF=17ORF=810RF=1450RF=209THENX=P:G0T03010 
3030 Q=X:GOSUB5000:IFF=49ORF=l77THENY=P:G0T03 010 
3040 Q=Y:GOSUB5000:IFF=113THENZ=P:GOT03010 
3050 Q=Z:GOSUB5000:RETURN 
4000 S=F:M(F)=0:FORI=F+lTOF+15+(F=241) 

4010 K=A(I) :Q=I-1 j IFK<A(Q) THEN4060 
4020 J=M(Q):IFJ=0THENM(I)=0:GOTO4050 
4030 IFK>A(J)THENQ=J:GOTO4020 
4040 M(I)=J 

4050 M(Q)=I:NEXT:RETURN 

4060 Q=S:IFK>A(Q)THEN4020 

4070 S=I:M(I)=Q:NEXT:RETURN 

5000 I=P:IFA(Q)<A(I)THENP=Q:Q=I:I=P 

5010 J=M(I):IFJ=0THENM(I)=Q:RETURN 

5020 IFA(Q)<A(J)THENM(I)=Q:I=Q:Q=J:G0T05010 

5030 1=J:G0T05 010 



Petbits 


A new training course entitled "MICROCOMPUTERS - Applications and 
Programming" is to be run at the Coventry Management Training Centre. 
Aimed primarily at businessmen, the course aims to demonstrate the 
capabilities of microcomputers and teach a working knowledge of BASIC, 
with hands-on experience on Commodore PETs. 

Ihe course lasts for three days (5th - 7th November 1979) and consists 
of lectures, demonstrations and teach-ins by qualified staff. Ihe 
basic fee is £138.00 for the three days, including lunches and 15% VAT; 
hotel accomodation can be arranged at extra cost. 

Although a large number of machines will be available on the course, we 
are advised that anyone able to bring his own PET will be eligible for 
a discount. For more information ring: 0926 36621. 


********* 


NEW ENTRIES TO USERS DIRECTORY: 


55 Belvedere Road, Bessie, Humberside. Tel: 0482 645724 
Tr ain ing,Consultancy and programming services. 

Tina BjcJrnstjerna Datatjanst 
Brantingsgatan 50, S—115 35 Stockholm, Sweden. 

Hardware, software for Pet. 

J. E. Atlas 

A De B Consultants, 3 Cromwell Place, Iondon SW7. 
Mechanical, Electrical, Civil, Structural Engineering. 


********* 


Ihe States-originated publication 'CURSOR', is now available in the U.K. 
through PEISOFT. Cursor comes on a C30 cassette, 10 times a year. At 
least five full size programs come on each cassette with one or more 
games programs that could be worth £8 elsewhere. None of the programs 
have previously been published in the U.K. In addition to the cassette 
the subscription includes CURSOR NOTES which cover the documentation 
for the programs and other Pet-related information. 

One year's subscription to CURSOR costs £36.00 (£45.00 for overseas 
airmail). A sample issue may be obtained for £4.00 including p.& p. 

For more information telephone: 021 455 8585. 


********* 



